open Myclasses;;
open Test;;

let monster = new item;;
monster#setType 1;;
(monster#getPoint)#setX 750;;
(monster#getPoint)#setY 1250;;
monster#setNextDir 1;;
monster#setNowDir 0;;
monster#setColor (1., 0.5, 0.);;
monster#setRadius 0.49;;
monster#setSpeed 1;;
let monster2 = new item;;
monster2#setType 1;;
(monster2#getPoint)#setX 750;;
(monster2#getPoint)#setY 1250;;
monster2#setNextDir 3;;
monster2#setNowDir 0;;
monster2#setColor (0.8, 0.5, 0.3);;
monster2#setRadius 0.49;;
monster2#setSpeed 5;;
let monster3 = new item;;
monster3#setType 1;;
(monster3#getPoint)#setX 750;;
(monster3#getPoint)#setY 1250;;
monster3#setNextDir 2;;
monster3#setNowDir 0;;
monster3#setColor ((Random.float 1.), (Random.float 1.), (Random.float 1.));;
monster3#setRadius 0.49;;
monster3#setSpeed 10;;

let mainMap = new gamemap;;
mainMap#addMonster monster;;
mainMap#addMonster monster2;;
mainMap#addMonster monster3;;
mainMap#setPlayer pacman;;


show_pacman mainMap;;
